unit dConfigComissao;

interface
uses
classes,
dObjects;

type
Tconfig_comissao=class(TdObjects)
private
fidconfigcomissao : integer;
fidempresa : integer;
fpercomissao : double;
public
constructor create; 
destructor destroy; override;
procedure clear;
published
 property idconfigcomissao : integer read fidconfigcomissao write fidconfigcomissao;
 property idempresa : integer read fidempresa write fidempresa;
 property percomissao : double read fpercomissao write fpercomissao;
end;
implementation
constructor Tconfig_comissao.create;
begin
inherited;
clear;
self.AddPK(['idconfigcomissao']);
self.TableName := 'config_comissao';


end;
destructor Tconfig_comissao.destroy;
begin
inherited destroy;
end;
procedure Tconfig_comissao.clear;
begin
 fidconfigcomissao:=0;
 fidempresa       :=0;
 fpercomissao     :=0.0;
end;


end.
